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Fargo 


FARGO, Fourteen-O-One Automatic Report Generat- 
ing Operation, is a report generator that requires no 
expert knowledge of programming techniques. It is 
easy to learn and apply. Developed for the ibm 1401 
Data Processing System, FARGO may be quickly 
adapted to many types of listed reports or group- 
printed reports now prepared with unit-record equip- 
ment on blank paper or- on preprinted forms. 

In addition to providing the program for processing 
the input detail-data cards, FARGO provides for 
printing one title line, including page number, on each 
page of the report. It also provides for printing two 
lines of field headings used to designate the various 
columns of the report. The printing of this information, 
normally required when preparing reports on blank 
paper, is controlled by the carriage tape. One advan- 
tage of FARGO is that any number of different reports 
may be prepared in a continuous mode, provided the 
reports are prepared on blank paper and that the 
carriage-tape specifications are standardized for all 
the reports. 

Requirements of the report, such as title and field 
headings, detail and/ or total printing, carriage spacing, 
skipping, ejecting, etc., are first laid out on an ibm 
1403 Printer Spacing Chart. The report specifications 
are then recorded on specially-designed FARGO con- 


trol card coding-sheets (Phases 1, 2, 3 and 4). Control 
cards for each of the four phases are then punched on 
standard 5081-type cards. These are inserted behind 
their respective FARGO condensed-program decks, 
and all precede the detail data cards to be processed. 
The file is then loaded into the 1402 file feed. The 
operation is started by pressing the load key. The 
1401 loads each phase of the FARGO program, and 
generates the program steps from the control cards 
that follow each phase. 

In approximately 20 seconds, report printing is 
started. It continues without interruption until the 
report is finished. This procedure is graphically illus- 
trated in Figure 1. If several reports are to be run 
consecutively, a separator card containing a lozenge 
(□ , 12-4-8) punch in card column one is placed be- 
hind the last detail data card for each report. This 
branches the generated program into the last card 
routine, ejects to the first printing line of the next 
form, and immediately begins reading-in the next pro- 
gram deck. 

FARGO is designed primarily for ibm 1401 card sys- 
tems having a minimum of 4,000 positions of core 
storage, and parallels the 407 approach to report prep- 
aration. It is a load-ond-go system with no intermediate 
operations such as symbolic assembly. 
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General Description 

Following is a list of operations that can be performed 
under FARGO control. 

Print one full line (132 positions) of Report Heading 
on the first line of each page of the report (carriage- 
tape channel-1, including page numbers. 

Skip to carriage-tape channel-2 and print a maxi- 
mum of two full lines of columnar- or field-headings 
on each page of the report. 

Skip to the body line of the report (carriage-tape 
channel-3). 

List or group-print the body of the report. 

Control on a maximum of four fields anywhere in 
the detailed data cards regardless of length. 

Group-indicate a maximum of four fields on the first 
line of each minor control group. 

Distinguish a maximum of 10 different types of de- 
tail cards and print results in the appropriate columns 
of the report. Each code used to identify a given type 
of card may be punched in the same column of the 
detail card, or a separate column may be used to 
identify each type up to a maximum of 10. If more than 
one card-column must be tested to identify a given 
type of card (multiple column type), a patching rou- 
tine is generally required. Special provisions have been 
made within the FARGO program for accomplishing 
this type of patching. (See Patching.) However, two 
columns may be tested without patching if, as is fre- 
quently the case, a type of card is identified by a digit 
(1-9) in one column and a zone (usually an X) in an- 
other column. Example: 3 in column 6, X in column 
80. (See Figure 25.) 

Add, subtract, multiply, and divide detail data or 
totals. 

Accumulate and print totals (with or without sum- 
mary punching) for each control level, plus final totals 
at the end of the report. Minor totals are rolled into 
intermediate totals, intermediate totals into major, etc. 


Space before or after printing, or skip to predeter- 
mined total-lines (carriage-tape channels 4 to 9). 

Crossfoot detail data or totals, print the results on 
desired total levels, and print progressive totals where- 
ever desired. 

Print totals horizontally or vertically for each total 
level on as many lines as desired. 

Print multiple lines from one card (MLP). 

Print reports on preprinted forms, including inverted 
forms with MLP printing. In such cases, specifications 
for report and field headings are not required. 

Card count by types of cards and print card count 
totals on desired total levels. 

Overflow or eject from form to form. 

Print any number of different types of reports 
consecutively, provided that reports are prepared on 
continuous blank paper and that the carriage-tape 
specifications are standardized for all the reports. 

Report Specifications 

In developing report specifications, the first step is to 
lay out the report on an ibm 1403 Printer Spacing 
Chart (step 1 in Figure 1). This establishes the posi- 
tions at which the various data will be printed and 
indicates the spacing or skipping between lines of 
printing. This step is always required for new reports 
but may not be necessary for existing reports, that is, 
reports that have been prepared previously with the 
407. In such cases, the same spacing chart used in 
laying out the report for the 407 can be used with the 
FARGO system. If minor modifications are made in 
the conversion of the report from the 407 to the 1401 
because of the greater printing capacity, a new layout 
using the 1403 printer spacing chart is necessary. Once 
the report layout is completed and the operations to 
be performed are clearly indicated, the next step (step 
2 in Figure 1) is to record the specifications on FARGO 
coding sheets. 
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Coding Sheets 

Coding sheets (Figure 2) are designed to facilitate the 
recording of specifications in the FARGO language, 
following a few simple rules. The statements used to 
supply the information are based on the logic of the 
407. Thus, any person with sufficient knowledge to 
develop ibm 407 specifications for a given report can 
learn and apply the FARGO language with very little 
training. 

The areas on the coding sheets labeled Report, Pro- 
grammed By, Page Nos., and Date are for the con- 
venience of the programmer, but are not punched in 
the FARGO control cards. If the programmer assigns 
a number to the program for identification purposes, 
the number is entered in the area labeled Program 
Identification, 73-76. This number is later punched in 
each FARGO control card. 

Each line of the coding sheets is identified by a pre- 
printed sequence number in columns 77-80. These se- 
quence numbers should be punched in the control 
cards. When the control cards for the four phases are 
properly inserted behind their respective FARGO 
condensed-program decks, the sequence numbers must 
be in ascending order as shown here. 


Phase 

Cards 

No. of 
Cards 

Sequence 

Numbers 

1 

Condensed Program Deck 

50 

0001-0050 

1 

Control Cards 

variable 

1000- lxxx 

2 

Condensed Program Deck 

32 

2000-2031 

2 

Control Cards 

variable 

3010-3xxx 

3 

Condensed Program Deck 

33 

4000-4032 

3 

Control Cards 

variable 

5010-5xxx 

4 

Condensed Program Deck 

12 

6000-6011 

4 

Control Cards 

variable 

7001-70xx 

The coding sheets for the four phases are 

described 

in the order in which they are 

normally filled out. 


form no. X24-6556 

Phase 4 — Report-Heading Control Cards (two cards 
maximum). 

Field-Headings Control Cards (four cards 
maximum). 

Phase 1 — Master-Report Control Card (one card maxi- 
mum). 

Control-Break Control Cards (four cards 
maximum). 

form no. x24-6557 

Phase 1 — Constants Control Cards (50 cards maxi- 
mum). 

form no. x24-6559 

Phase 3 — Detail Control Cards (variable) 
form no. x24-6558 

Phase 2 — Total Control Cards (variable) 


Phase 4 (Form No. X24-6556) 


Report-Heading Control Cards 

Two report-heading control cards (sequence numbers 
7001 and 7002) provide a maximum of 132 positions of 
report-heading information that may be printed at the 
top of each page of the report (carriage-tape chan- 
nel-1). Report-heading specifications are entered in col- 
umns 1-68 as follows: 


Control Data 

H - Report-Heading Control Card. 

1 - First card. 

2 - Second card. 

Enter report-heading information (66 char- 
acters maximum for each card). Card 1 prints 
in positions 1-66, Card 2 prints in positions 
67-132. 

rule: If a report heading is required, two cards always must 
be punched, and HI control card must precede H2 con- 
trol card. Depending on the length of the report heading 
and the print positions selected, either HI or H2 control 
card may be blank in columns 3-68. The report heading 
may include the word PAGE anywhere on the line if 
page numbering is specified. 

If a report heading is not required (preprinted forms), 
these two control cards are omitted. 


Card 

Columns 

1 

2 

3-68 


Field-Headings Control Cards 

Four field-headings control cards (sequence numbers 
7011-7014) provide two full 132 positions for field- 
heading information that may be printed on each page 
of the report following the report heading (carriage- 
tape channel-2). Field-headings specifications are en- 
tered in columns 1-68 as follows: 


Control Data 

F - Field-Heading Control Card. 

1 - First Card. 

2 - Second Card. 

3 - Third Card. 

4 - Fourth Card. 

Enter field-heading information (66 charac- 
ters maximum for each card). Cards 1 and 2 
print first line of field headings: 

Card 1 - print positions 1-66. 

Card 2 - print positions 67-132. 

Cards 3 and 4 print second line of field 
headings: 

Card 3 - print positions 1-66. 

Card 4 - print positions 67-132. 

rule: If field headings are required, these four cards must enter 
the machine in ascending sequence. If not required (pre- 
printed forms), they are omitted. 

rule: Whether or not report and/or field headings are speci- 
fied, a blank card punched with the # (3-8) symbol in 
column 1 must be the last card in the combined program 
deck. In other words, it always precedes the first detail 
data card. This signals the end of FARGO program 
loading and the beginning of detail card processing. 


Card 

Columns 

1 

.2 


3-68 
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Phase T (Form No. X24-6556) 

Master-Report Control Card 

This card (sequence number 1000), always punched 
M in column 1, specifies: 

1. type of report (list or group-print). 

2. page overflow, if desired. 

3. page numbering, if desired. 

4. positions selected to print the page number any- 
where on the report-heading line. 

5. data to be group-indicated on the first line of each 
minor control group of a listed report only. 

The control data is entered in the various columns 
of the coding sheet as shown here. 

Card 

\ Columns Control Data 

1 M - Master-Report Control Card. 

2 L - List; Blank - Group Print. 

3 O (alpha) - Page overflow to carriage-tape 
channel- 1. 

Blank - No page overflow. 

4 P - Page numbering if desired. 

Blank - No page numbering. 

5-7 (from) ibm 1403 print positions selected for printing 

8-10 (to) page number on report-heading line. ( From 

indicates the left-hand or high-order print 
position while to indicates the right-hand or 
units print position.) 

11 First field to be group indicated. 

M - Move 

Z - Move and suppress zeros. 

12-14 (from) Location of data in detail card to be group- 

15-17 (to) indicated. (From indicates the left-hand or 

high-order card column, while to indicates 
the right-hand or units card column.) 

18-20 (from) ibm 1403 print positions selected for printing 

21-23 (to) first group-indicated field. 

24-36 Second field to be group-indicated. Same for- 

mat as Field 1. 

37-49 Third field to be group-indicated. Same for- 

mat as Field 1. 

50-62 Fourth field to be group-indicated. Same 

format as Field 1. 


Control-Break Control Cards 

These cards (sequence numbers 1001-1004) always 
punched B in column 1, specify the four control levels 
and define the card columns in which the control fields 
are punched in the detail cards. For a simple listed 
report with no controls, these cards are omitted. When 
controls are required, the specifications are recorded 
in columns 1-8 as follows. 

Card 

Columns Code Control Data 

1 B Control-break control card. 

2 1 First-level control (minor). 

2 Second-level control (intermediate). 

3 Third-level control (major). 

4 Fourth-level control. 

3-5 (from) Location of control field. 

6-8 (to) 

Split-Control Fields 

Normally, information in a given level control, iden- 
tified by a single card-field heading, is punched in 
consecutive columns of the card. In some cases, the in- 
formation may be punched in more than one card field 
but still in consecutive columns of the card. The va- 
rious card fields involved may be treated as one-level 
control merely by specifying the level desired (1, 2, 3, 
or 4), and the high-order position of the left-most field 
(from) and the low-order position of the right-most 
field (to). 

When a given level control (for example, minor) is 
split, that is, represented by two card fields that are 
not adjacent, one field is specified as minor (code 1) 
and the other field as intermediate (code 2). Because 
an intermediate control-break forces a minor total- 
level, all the total operations are specified in T1 (minor 
level) control cards in Phase 2. A single T2 (intermedi- 
ate level) control card, coded SPS in columns 52-54, 
follows. However, no total operations are specified on 
the intermediate level. For each extra B-control card 
required in Phase 1, one total level is sacrificed in 
Phase 2. 
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Phase 1 (Form No. X24-6557) 


Constants Control Cards 

These cards, punched C or S in column 1, define the 
length of each constant word, the label used in the 
program when referring to the constant, and the char- 
acters that compose the constant word, with or without 
a word mark. Constant areas of core storage used to 
accumulate totals must be given a label. A maximum 
of 50 constants control cards may be used. Any com- 
bination of characters except PGE may be used as a 
label. The reason PGE cannot be used is that a 4- 
position constant area is reserved by the program to 
permit addressing the page number counter. If page 
numbering is not required, the counter may be used 
for other purposes in the program, in which case the 
counter must be referred to by the PGE label. 

Because the number of constants control cards may 
vary from report to report, complete sequence num- 
bers are not preprinted on the form. Only the hun- 
dreds position (column 78) need be entered, using 0 
for the first 9 lines, then l’s, 2’s, etc., as required to' 
establish sequence. If more than one sheet is needed, 
skip the first line (sequence no. 1010) on all overflow 
sheets and continue numbering with the second line 
(1x20). The same numbering scheme applies to se- 
quence numbers for Total and Detail Control Cards 
recorded on other forms. 

Specifications for constants are recorded in columns 
1-72 as follows. 

Card 

Columns Control Data 

1 C - Constant with a word mark. 

S - Special constant without a word mark. 
2-3 Number of positions in the constant word, 

including blanks. 

4-6 Label assigned to identify the constant word 

when referring to it in the program. 

7-72 Composition of the constant word (66 char- 

acters maximum). 

Blank positions are considered characters. 


Phase 3 (Form No. X24-6559) 


Detail Control Cards 

These cards, always punched D in column 1, specify 

the various operations to be performed for each type 

of detail card as follows. 

1. Recognize type of card upon which operations spe- 
cified in the same card are to be performed. 

2. Move digits or zones from a single column of the 
detail card. 

3. Transfer constant words to print/punch areas. 

4. Transfer data from detail card to print/punch areas. 

5. Perform arithmetic operations on detail-card data. 

6. Print multiple lines from a single card. 

7. After printing a detail line, skip to a carriage-tape 
channel, or space 1, 2, or 3 lines. 

Detail-control-card specifications are recorded in 

columns 1 to 72 as follows. 

Card 

Columns Control Data 

1 D - Detail Control Card. 

2-6 If only one type of detail card, leave columns 

2-6 blank. If more than one type (maximum 
10), enter information in columns 2-6 as 
specified in the following rule. 

rule: For operations that are to be performed on all detail 
cards regardless of type, leave column 2 blank and enter 
ALL in columns 3-5. On the last ALL control card, also 
enter an asterisk ( # ) (11-4-8) in column 2. ALL control 
cards must precede all other control cards punched D in 
column 1. 

For operations that are to be performed on specific 
types of detail cards, enter in column 2 the type code, in 
columns 3-5 the column in the detail card that contains 
the type code, and in column 6 C for a character test or 
Z for a zone test. The C and Z codes in column 6 con- 
trol the method to be used for determining the type of 
card indicated in column 2. 

Applications of this rule are illustrated in the fol- 
lowing examples. 
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Control Card 
Columns 

1 2 345 6 Result 

D ALL ) 

D ALL ) Operations specified in these control cards 

D ALL ) are performed on all cards regardless of type. 

D ALL ) 

D * ALL ) Last ALL control card. 

D — 080 C Character test. Operations specified in this 
control card are performed on cards con- 
taining only an X (11-punch) in column 80. 

D — 080 Z Zone test. Operations specified in this con- 
trol card are performed on cards containing 
an X in column 80. This includes characters 
in the 11-zone (J to R). 

D & 080 C Character test. Operations specified in this 
control card are performed on cards con- 
taining only a 12-punch in column 80. 

D & 080 Z Zone test. Operations specified in this control 
card are performed on cards containing a 
12-punch in column 80. This includes char- 
acters in the 12-zone (A to I). 

D 6 080 C Character test. Operations specified in this 
control card are performed on cards con- 
taining a 6-punch in column 80. 

D 6 080 Z No-Zone test. Operations specified in this 
control card are performed on cards con- 
taining no-zone punches (0, 11, 12) in col- 
umn 80. For this type of test, any digit from 
1 through 9 can be used in column 2 of the 
control card. 

D Z 080 C Character test. Operations specified in this 
control card are performed on cards con- 
taining the letter Z (0-9) in column 80. 

D Z 080 Z Zero-Zone test. Operations specified in this 
control card are performed on cards con- 
taining a zero-zone punch. This includes 
special character (/) and letters S to Z. For 
this type of test, any of the characters men- 
tioned can be used in column 2 of the con- 
trol card. 

D 080 C Blank-column test. Operations specified in 
this control card are performed on cards that 
are blank in column 80. 

D 080 Z No-Zone test. Operations specified in this 
control card are performed on cards con- 
taining no-zone punches (0, 11, 12) in col- 
umn 80. This test can be used to differentiate 
between an X80 or NX80 condition. 

Card Control Data 

Columns 

7-13 Special 4- or 7-position instructions coded in 

actual ibm 1401 machine language, to be 
executed for specific types of cards, can be 
inserted in these columns. Instructions can 
also be used to branch to patching subrou- 
tines written in actual machine language. 
The specific patch point in the program must 
be determined by the programmer. Instruc- 
tions for inserting patching subroutines are 
given under Patching. 

14 D - Move digit. 

Y - Move zone. 


Card 

Columns Control Data 

15-17 (from) Enter the detail card column that contains 
the digit or zone to be moved. 

18-20 ( to ) Enter the card column to which the digit or 

zone is to be moved. 

Control-card columns 14 through 20 are used 
primarily to move credit X-punches from 
some position of the data card to the units 
position of an amount field that is to be ac- 
cumulated or edited. If the position from 
which the X was moved must be cleared, 
another control card may be used to move 
a blank zone into the position from which 
the X was moved. 

21 E - Edit. 

L - Load edit control word. 

M - Move constant data. 

Z - Move and suppress zeros. 

D - Move digit. 

Y - Move zone. 

22-24 Enter the label assigned to the constant to 

be transferred to the print or punch areas. 

25-27 (from) Print positions selected to print the constant 
28-30 ( to ) data. 

31-33 (from) Summary-card columns selected to punch 

34-36 (to) the constant data. 

37 E - Edit detail data. 

M - Move detail data. 

Z - Move and suppress zeros from detail 
data. 

D - Move digit. 

Y - Move zone. 

38-40 ( # * # from) Location of field to be transferred. 

41-43 (to) #i#i> NOTE: To conserve on 1401 core storage, 

subsequent references to the same field in 
the same card types may be made by in- 
serting asterisks in columns 38-40. This also 
applies to columns 57-59. 

44-46 (from) Print positions selected to print detail data. 
47-49 (to) 

50-52 (from) Summary-card columns selected to punch 

53-55 (to) detail data. 

56 A - Add. 

S - Subtract, 

@ - Multiply (4-8 punch). 

% - Divide (0-4-8 punch). 

? - Zero and Add (12-0 punch). 

! - Zero and Subtract (11-0 punch). 

D - Move digit. 

Y - Move zone. 

M - Move. 

Z - Move and suppress zeros. 

57-59 (***from) Location of field upon which operations 
60-62 (to) coded in column 56 are to be performed. 

63-65 Label assigned to constant upon which 

operations coded in column 56 are to be 
performed. 

66-68 Label of core-storage positions to be used as 

accumulator, multiplier-product, or quotient- 
dividend-remainder. 
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Control Data 

P - Print. Primarily used for MLP printing. 
A control card is required for each MLP line 
to be printed from the same type of card. 
Coding in column 69 is required for all MLP 
lines except the last. Printing the last line of 
an MLP card is automatic. All lines printed 
from an MLP card are single-spaced. 

SP - Space after printing a detail line. 

SK - Skip after printing a detail line. 

1-3 - Single-, double-, or triple-space after 
printing. 

4-9 - Skip to corresponding carriage tape 
channels. 

In a listed report, skipping or spacing indi- 
cated in columns 70-72 takes place after 
printing of the detail line for' the particular 
type of card specified in column 2. 

In a group-printed report, skipping or spacing 
indicated in columns 70-72 causes no car- 
riage operation. In such cases, skipping and 
spacing is controlled with T (Total) control 
cards entered in Phase 2. 

rule: When several control cards are entered for the same 
type of detail card, a skip or space instruction must be 
entered in the last control card of each type. 

rule: For printing and punching the same detail data, two 
separate control cards are required: one to move data 
to print positions, the other to move data to punch po- 
sitions. This rule must be observed when entering data 
in control card columns 22-36 and 38-55. 


Phase 2 (Form No. X24-6558) 


Total Control Cards 

These cards, always punched T in column 1, specify 
the various operations to be performed for each class 
of total or each total within the same class. Operations 
include: 

1. Skip to a carriage tape channel, space before 
and/or after total printing, or eject from form to 
form. 

2. Add one total-level accumulator to a higher-level 
accumulator. Subtract one total-level accumulator 
from a higher-level accumulator. Multiply or di- 
vide one total by another on the same level. 

3. Crossfoot totals on any total level desired. 

4. Load or move constant data to the printer output 
area. 

5. Move, move and suppress zeros, or edit accumu- 
lated totals to the print or punch areas. 

6. Move digits or zones from a single storage position. 
For example, remove or add a sign to the units 
position of a total. 

7. Clear accumulators. 

8. Print constants on total levels to identify totals. 

9. Print totals on total lines. 


10. Print multiple lines of information read from a 
single card in Phase 3. 

11. Punch summary cards. 

Several totals within the same class, designated by 
field headings, may be printed horizontally on the 
same line, each under its appropriate column of the 
report. Or, they may be identified by constants and 
printed vertically on separate lines in the same col- 
umn of the report. Examples: 

Horizontal Method 


Gross 

Withholding 

Other 

Net 

Earnings 

Tax P.I.C.A. 

Deductions 

Pay 

150.00 

27.00 5.44 

10.00 

107.56 


Vertical Method 



Gross Earnings 

150.00 



Less WHTax 

27.00 



F.I.C.A. 

5.44 



Other 

10.00 



Net Pay 

107.56* 



Similarly, different classes of totals may be printed 
horizontally under designated report columns or ver- 
tically in the same report column. 


Total-control-card specifications are recorded in 
columns 1 to 56 as follows. 


Card 

Columns 

Control Data 

1 

T - Total control card. 

2 

1 - Minor-total level. 

2 - Intermediate-total level. 

3 - Major-total level. 

4 - Fourth-total level. 

5 - Fifth- (final) total level. (Occurs on last 

card runout with Sense Switch A 
turned ON.) 

3-4 

SP - Space before total printing. 
SK - Skip before total printing. 

5 

Enter 1-3 to space number of times desig- 
nated. 

Enter 4-9 to skip to corresponding carriage 
tape channels. 

note: Because normal single spacing is 
automatic, leave columns 3-5 blank 
if normal spacing is desired. 

6 

A - Add. 

S - Subtract. 

@ - Multiply (4-8 punch). 
% - Divide (0-4-8 punch). 
M - Move. 

7-9 (from) 

Label of accumulator read out of. 

10-12 (to) 

Label of accumulator read into. 

13 

L - Load edit control word. 

M - Move constant data. 

Z - Move and suppress zeros. 

14-16 

Label assigned to constant being moved or 
loaded. 

17-19 (from) 
20-22 (to) 

Print positions selected to print constant 
data. 

23 

E - Edit total or constant data. 

M - Move total or constant data. 

Z - Move and suppress zeros from total or 
constant. 


Card 

Columns 

69 

70-71 

72 
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Card 

Columns Control Data 

24-26 Label assigned to accumulator or constant. 

27-29 (from) Print positions selected to print total or con- 

30-32 (to) stant data addressed by the label coded in 

columns 24-26 of the same control card. 

33-35 (from) Summary-card columns selected to punch 
36-38 ( to ) total or constant data addressed by the label 

coded in columns 24-26 of the same control 
card. 

rule: For printing and punching from the same accumulator, 
two separate control cards are required. One moves data 
to print positions, and the other moves data to punch 
positions. 

39 D - Move digit (only) portion of a charac- 

ter from one card column to another 
in punch area. 

Y - Move zone (only). 

40-42 Summary-card column from which digit or 

zone is to be moved. 

43-45 Summary-card column to which digit or zone 

is to be moved. 

46 S - Clear accumulator by subtracting it 

from itself. 

47-49 Label assigned to accumulator to be cleared. 

note: When both printing and punching from the same ac- 
cumulator, clear accumulator on the second control card, 
after information has been transferred to the print and 
punch areas. 

50 P - Print total line. All totals within the 

same level may be printed on one line 
or on separate lines. 

51 P - Punch total summary card. All totals 

within the same level may be punched 
in one card or in separate summary 
cards. 

52-53 SP - Space after total printing. 

SK - Skip after total printing. 


Card 

Columns Control Data 

54 Enter S to single space. 

Enter 1-3 to obtain additional spaces beyond 
the normal single space (1 for double 
space, 2 for triple space, 3 for quad- 
ruple space). 

Enter 1-9 to skip to corresponding carriage 
tape channels. 

note: When skipping to carriage- tape channel- 1 after total 
printing, report and field headings do not print. 

rule: When several totals within the same level are printed on 
separate lines, the last T (Total) control card for each 
total level must contain a Skip, Space, or Eject instruc- 
tion. If normal single spacing is desired, the last control 
card must be coded SPS in columns 52-54. 

55 E - Eject form to carriage-tape channel-1 

after total printing. Report and field 
headings will print on the next page 
following the eject. 

56 * - The last T control card specified in 

Phase 2 (Form No. X24-6558) must 
contain an asterisk (*) punch in col- 
umn 56. 

rule: When four control levels are specified in the problem, 
final-total operations are specified on level 5. When less 
than four control levels are specified, final-total operations 
are specified on the next higher level. Examples: 

No controls, final-total operations are specified on 
level 1. 

Minor control only (level 1), final-total operations are 
specified on level 2. 

Minor and intermediate controls (levels 1 and 2, re- 
spectively), final-total operations are specified on 
level 3. 

Minor, intermediate and major controls (levels 1, 2 
and 3, respectively), final-total operations are speci- 
fied on level 4. 

For all the conditions mentioned in these examples, 
the last final-total control card must contain an asterisk 
(*) punch in column 56. 

If Final Totals are not required, a last-card-runout 
total-card for level 1, 2, 3, 4 or 5 must contain an 
asterisk in column 56. 
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Automatic-Carriage-Control Operation 

Page overflow is controlled by the letter O in column 3 
of the master-report control card — Phase 1. Ejecting 
from form to form (carriage-tape channels 12 to 1), and 
skipping to carriage-tape channels 2 and 3, occur auto- 
matically as shown in Figure 3, depending on the 
presence or absence of report- and field-headings con- 
trol cards — Phase 4. 
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Figure 3. Automatic-Carriage-Control Operation 





Operating instructions 

To prepare reports with FARGO, proceed as follows: 

1. Ready the ibm 1403 Printer. 

a. Insert into the carriage the paper or form on 
which the report is to be printed. Make the neces- 
sary vertical and horizontal adjustments to properly 
position the form. 

b. Insert the carriage tape punched as follows. 
Normal Condition 

Channel 1 - Report-heading line. 

Channel 2 - First field-heading line. 

Channel 3 - First body line. 

Channels 4-9, if required. Skip-stops for pre- 
determined line printing. 

Channel 12 - Overflow line. 
note: For conditions other than normal, channels 
2 and/or 3 may not be required. (See Figure 3.) 

c. Set feed-clutch knob to neutral position. 

d. Press carriage-restore key. 

e. Turn feed-clutch knob back to drive position. 

f . Press check-reset key on the 1403 printer. 

2. Ready the 1401 Console. 

a. Set mode switch to run position. 

b. Set I/O check-stop switch to the on (up) posi- 
tion. 

c. Set sense switch A to the on (up) position. 

d. Press check-reset key on the 1401 console. 

e. Press the start-reset key on the 1401 console. 

3. Ready the 1402 read-punch unit. 

a. Set reader switch to on. 

b. Press the non-process runout read key to clear 
the read feed. 

c. Place FARGO program and detail cards in the 
1402 read unit in the sequence illustrated in Fig- 
ures 1 or 6. 

d. If summary punching, set punch switch to the 
on position. 

1. Press the non-process runout punch key to 
clear the punch feed. 

2. Place cards to be summary punched in the 
punch hopper. 

e. Press check-reset key on the 1402 read-punch 
unit. 

f. Press load key on the 1402 read-punch unit. 

If the control cards punched from the FARGO cod- 
ing sheets contain no errors, the program is loaded 
in approximately 20 seconds. Processing of detail data 
cards is started immediately thereafter. When the last 
card has left the hopper and the machine stops, press 
the start key on the 1402. If specified in the program, 
final totals print automatically on the runout. 


Program Halts 

Program halts may occur not only during the loading 
of the FARGO program deck (Phases 1 to 4) but also 
during processing of the detail cards. Halts occurring 
during Phases 1 to 4 indicate that the control cards 
punched from the coding sheets are not in the proper 
sequence as shown in Figure 1. Or, if they are in the 
proper sequence, invalid codes are punched in column 
1 of the control cards. Valid codes are M, B, C, S, T, 
D, H, F, or # . Codes other than these are invalid. 

Following is a list of program halts, reason for halt, 
and procedure for restarting. When the halt occurs, 
the last card in the read stacker (NR) has an invalid 
code in column 1. 


Storage Address 

Displayed Phase 


Reason for Halt 


2639 

2947 

2363 

2379 

3090 


1 Card has other than M. 

1 Card has other than B, C, or S. 

2 Card has other than T. 

3 Card has other than D. 

4 Card has other than H, F, or #. 


To restart from any of these halts, proceed as follows. 


1. Remove cards from read hopper. 


2. Press non-process runout read key. 

3. Remove the last three cards from the read stacker 


(NR). The first of these three cards is the control 
card in error. 


4. Correct the error. 

5. Replace the three cards in front of the cards taken 
from the read hopper. 

6. Place the card file in the read hopper. 

7. Press check reset key on the 1402. 

caution: Do not press the start reset key on the 1401 
console. 


8. Press start key on the 1402 read unit. 

During processing of detail cards, if the machine 
stops with the red Stop Light on (1401 Console) and 
storage address 0157 displayed, a constants label has 
been referred to in one of the T or D control cards for 
which there is no corresponding constants control card. 
This may be due to misspelling the 3-character label 
abbreviation on the T or D control card. Or, it may 
be that constants control card was inadvertently omit- 
ted in the constants coding sheet. To restart, proceed 
as follows. 

1. Remove all cards from read hopper and file feed. 

2. Press non-process runout read key on the 1402. 

3. Locate erroneous control card, make corrections, 
and restart from the beginning. 

If the machine stops with the red Stop Light on and 
storage address 3547 displayed, the last card in the 
stacker is a type of card for which no entry was made 
on the Phase 3 code sheet. 
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During processing of detail cards, the program may 
hang up at an unknown address with the following 
lights on: 
process 

CHECK RESET 

A- OR I-ADDRESS REGISTER. 

The A-Address Register Light means that an edit 
control word entered in the constants coding sheet is 
too small for the data being edited. The I-Address 
Register Light means that a 1401 operation code rep- 
resented by an invalid character is detected in storage. 

To locate the edit control word that is too small for 
the data being edited, execute a storage print-out as 
follows. 

1. Set mode switch to storage print-out. 

2. Press I-address register key and note address loca- 
tion displayed. 

3. Turn hundreds and thousands manual-address 
switches to digits corresponding to the hundreds 
and thousands positions displayed. 

4. Press start key on the 1401 console. 

5. Examine the storage print-out and find the I-address 
displayed in Step 2. 

6. Go back from there to the first load (L) instruction. 
The A-operand of this instruction contains the stor- 
age address of the edit control word that is too 
small. 

7. Locate constants control card, make corrections, 
and restart from the beginning. 

To locate and correct an invalid character used as 
an operation code execute a storage scan as follows. 

1. Set mode switch to storage scan. 

2. Set manual-address switches to 0000. 

3. Hold down the start key. 

4. Machine stops when an invalid character is detected 
in storage. The storage position in error is shown in 
the storage-address display unit. The B-register dis- 
plays the contents of the storage position in which 
the error is detected. 


5. Locate the control card in which the invalid charac- 
ter is punched and remove it from the program 
deck. 

6. Correct the error by punching a new control card 
and inserting it in the program deck. 

To restart, a complete card runout and start reset is 
necessary. 

Patching 

The term patching as used in connection with FARGO, 
means linking a special subroutine or library program 
to the main FARGO program. The linkage is accom- 
plished by branching from a specific patch point in 
Phase 3 (detail control cards) or Phase 2 (total control 
cards) to the patch subroutine, then branching back 
to the main FARGO program, after the subroutine is 
executed. 

With a 4k machine, at least 956 storage positions 
are available for storing patch subroutines. In some 
cases, depending upon the complexity of the report 
involved, more storage positions may be available. 
These subroutines must be entered into the machine 
in actual 1401 machine language. Therefore, a knowl- 
edge of 1401 programming or symbolic programming 
(SPS) is a prerequisite. 

The specific patch point(s) for linking subroutines 
is determined by the programmer as he normally 
writes the FARGO instructions. These patch points are 
first recorded on Phase 3 and Phase 2 coding sheets as 
4- or 7-position no-op instructions. They are changed 
later to unconditional branch instructions after the 
exact locations of the patch subroutines are deter- 
mined. 

Phase 3 — Detail No-Op Control Cards 

At each point in Phase 3 where branching to sub- 
routines is required, make an entry on the coding sheet 
in columns 1, 2-6, and 7-10 as shown in Figure 4. 


7. 


DETAIL CONTROL CARDS - PHASE 3 


D 

Type of 
Detail 
Card 

Special 4 or 
7 position 

Column Split 

E 

L 

M 

Z 

D 

Y 

— Edit 

— Load Edit Control Word 

— Move Constant Data 

— Move and Suppress Zeros 
~ Move Digit 

= Move Zone 

E - Edlt DETAIL CARD DATA 

M — Move 

Z = Move and Suppress Zeros 
D = Move Digit 
Y = Move Zone 

C — Char. 
Z — Zone 

1 

c 

Z 

1401 instruction 
(actual) 

D 

Y 

— Move Digit 

— Move Zone 

' 


Label 

Print 

Positions 

Punch 

Positions 


f 

Data Card 
Columns 

Print 

Positions 

Punch 

Positions 

Code 

Card 

Cols. 

O 

P 

A 

B 

' 

f 

From 

To 

From 

From 

To 

From 

To 

From 

To 

From 

To 

From 

To 

1 

2 

3 5 

6 

7 

8 10 

11 13 

14 

15 17 

18 20 

21 

22 24 

25 27 

28 30 

31 33 

34 36 

37 

38 40 

41 43 

44 46 

47 49 

50 52 

53 55 

D 
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A 
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Figure 4 
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The D in column 1 is preprinted on the form. This 
indicates that branching to the patch subroutine is to 
occur during the detail portion of the program. The 
codes entered in columns 2-6 specify the type of detail 
card for which the patch subroutine is to be executed. 
The entry, N000 in columns 7-10, is the no-op instruc- 
tion. This is changed later to an unconditional branch 
instruction (Bxxx), with xxx indicating the actual ma- 
chine address of the patch subroutine. 


Phase 2 — Total No-Op Control Cards 

At each point in Phase 2 where branching to sub- 
routines is required, make an entry on the coding sheet 
in columns 1, 2, and 39-45 as shown in Figure 5. 

The T in column 1 is preprinted on the form and 
indicates that branching to the patch subroutine is to 
occur during the total portion of the program. Any 
digit from 1 to 5 entered in column 2 specifies the 
program level during which the patch subroutine is to 
be executed. The entry N788788 in columns 39-45 is 
the no-op instruction. This must be changed later by 
an instruction in the patch subroutine to an uncon- 
ditional branch instruction (Bxxxbbb), with xxx indicat- 
ing the actual machine address of the patch subroutine 
and bbb indicating blanks. 

The FARGO program, including the no-op control 
cards that cause no machine operation, is completely 
tested with a representative deck of detail data cards 
and approved before the subroutines are inserted in- 
to the program deck. This is necessary because any 
change in the FARGO control cards after the sub- 
routines are inserted affects the storage locations of the 


generated report program, requiring changes in the 
subroutine instructions. 

After the FARGO-generated portion of the report 
is satisfactorily tested, execute a storage print-out 
and examine it to determine: 

1. the end of the FARGO-generated program. 

2. storage location of patch points (no-op detail and 

total control cards). 

The end of the generated program is determined by 
locating the report-heading information that is loaded 
into storage immediately after the last instruction from 
the detail control cards. If report-heading information 
is not specified in Phase 4, the end of the generated 
program is the last BE66 instruction. This instruction 
appears following the last generated instruction for 
each type of detail card specified in Phase 3. There- 
fore, the end of the generated program is either the 
last position of the report-heading information (includ- 
ing blanks), or the last BE66 instruction. The area 
available for storing the patch subroutines extends 
from this point (storage location 2358 or lower, depend- 
ing upon the complexity of the report involved) to 
3313. Thus, with a 4k machine, 956 storage positions 
or more are available for patch subroutines. Obviously, 
with machines of greater capacity, an additional amount 
of storage is available, starting with location 4000. 

The storage location of each patch point is deter- 
mined by visually scanning the storage print-out and 
finding the no-op instructions. Detail no-op instructions 
are identified by N000. Total no-op instructions are 
identified by N888888. N888888 was recorded on the 
coding sheet as N788788 but changed by the FARGO 
program to N 888888. 


TOTAL CONTROL CARDS - PHASE 2 
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Converting No-Op Instructions 

The control card containing the detail no-op instruc- 
tion (N000) may be removed from the FARGO deck 
and replaced with a control card containing an un- 
conditional branch instruction Bxxx. Or, it may remain 
in the deck in which case the no-op instruction must 
be converted to an unconditional branch instruction 
Bxxx by an instruction in the patch subroutine. 

The control card containing the total no-op instruc- 
tion (N788788) always remains in the FARGO deck. 
The no-op instruction, therefore, must be converted 
to an unconditional branch instruction Bxxxbbb by 
an instruction in the patch subroutine. 


Coding the Patch Subroutines 

As previously stated, a patch subroutine must be en- 
tered in storage in actual 1401 machine language. It 
may be written in symbolic language and assembled 
with an assembly processor as described in IBM 1401 
Symoblic Programming Systems, Form C24-1480. 

To branch back to the main FARGO routine after 
the subroutine is executed, the last instruction in each 
patch subroutine must be an unconditional branch in- 
struction. For example, if a detail (Phase 3) no-op 
instruction (N000 converted to Bxxx) is in locations 
1445-1448 as noted in the storage print-out, the last 
instruction in the subroutine used at this point must 
branch back to 1449. If a total (Phase 2) no-op instruc- 
tion (N888888 converted to Bxxxbbb) is in locations 
1201-1207 as noted in the storage print-out, the last 
instruction in the subroutine used at this point must 
branch back to location 1208. 

If coded in SPS, the program is assembled after 
testing the FARGO portion of the job so that the origin 
address of the subroutine can be determined from the 
storage print-out. When the object program deck is 
created by the SPS assembly processor, the first two 
cards contain instructions to clear storage. These two 
cards must be removed from the deck. The rest of the 
object program deck (one instruction per card) can 
then be loaded directly behind Phase-4 control cards. 
Or it can first be condensed into multiple instructions 
per card with a condensing program as described in 
IBM 1401 Symbolic Programming Systems , Form C24- 
1480. 

An example of a patch subroutine coded in actual 
machine language is shown in Figure 23-G. Another 
example of FARGO patching and linkage using SPS is 
shown in Figure 24. 


NOTE: 

If the 1401 does not have a Multiply -Divide optional 
feature, the Multiply-Divide Subroutines discussed 
in the 1401 Reference Manual can be patched into the 
FARGO program. 



1. Combined FARGO Program and FARGO Control Cards 

2. Last card in Phase 4 punched # in columns 1 and 2 

3. Patch subroutine(s) 

4. Trailer card containing instructions to clear the 
read-in area, and branch to 3314(C14). 

5. Report Detail Data Cards 


Figure 6. FARGO with Patch Subroutine 


Loading the Patch Subroutines 

All patch subroutines are loaded immediately after 
the Phase-4 control cards. Normally, the last Phase-4 
control card is punched # in column 1 of a blank card. 
To signal the FARGO program that patch-subroutine 
instruction cards are to be read into the system after 
Phase 4 is completed, this same card must also have 
a # punched in column 2. This causes the program 
to clear the read-in area (locations 1-80), set a word 
mark in location 001, read the next card, and then 
branch to location 001. 

After the last patch subroutine is loaded, a clear- 
and-branch trailer card must follow to clear the read- 
in area, and branch to location C14 (3314), this being 
the starting location of the permanent FARGO pro- 
gram. The report detail cards immediately follow the 
trailer card. 

The cards are run through the machine in the se- 
quence illustrated in Figure 6. 
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Multiply-Divide Optional Feature 

If the multiply-divide optional feature is installed in 
the 1401, direct multiplication and division can be 
specified with FARGO detail and/or total (Phases 3 
and 2) control cards. Before the proper entries can be 
made in these coding sheets, however, several factors 
must be considered. 


Multiplication 

Whenever FARGO report specifications involve a mul- 
tiplying operation, the first thing that must be decided 
is the size of the product to be developed. As explained 
in the ibm 1401 Data Processing System Reference 
Manual, A24-1403, this is done by adding 1 to the 
sum of the number of digits in the multiplier and the 
multiplicand. Assuming a 3-digit multiplier and a 4- 
digit multiplicand, the size of the product can then be 
readily determined by the following formula: 

3 (multiplier) plus 4 (multiplicand) plus 1 = 8 ( size of product ) . 

The multiplier may be fixed; that is, not punched 
in the detail cards but set up as a constant with an 
identifying label in Phase 1 for later reference in 


Phases 3 or 2. Or, it may be variable; that is, punched 
in each detail card or some specific type of card within 
a control group. 

A fixed multiplier (example: 125) may be set up as 
a constant in one of several ways as shown in Figure 7. 

A variable multiplier may be punched in known 
columns of all or specific types of detail cards. 

Multiplicands are always variable and may be 
punched in known columns of all or specific types of 
detail cards. Or, they may be developed as a total 
in an accumulator and identified with an appropriate 
label. Although any 1-, 2-, or 3-character label may be 
used to identify an accumulator, many users of 
FARGO prefer to use labels corresponding to 407 
counters; for example, 2A, 2B, etc., 4A, 4B, etc. 

Experience has shown that this method of labeling 
accumulators often simplifies the conversion of report 
specifications from the 407 to the 1401. 

Having determined the size of the product, set up 
a work area in storage for developing and retrieving 
the product. This is done by making two successive 
entries on the constants control cards coding-sheet 
(Phase 1) as shown in Figure 8. 
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Columns 2-3 = Size of Constant Word 
Columns 4-6 = Label to identify Constant Word 

Columns 7-72 — Field for punching Constant Word (66 characters maximum) 
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The first entry, C (constant with a word mark), sets 
up the three high-order (left-hand) positions of the 
product work area into which the 3-digit fixed or 
variable multiplier will be moved later with a T or D 
control card. 

The second entry, S (constant without a word mark), 
sets up the five low-order (right-hand) positions of the 
product work area, thus establishing an 8-position 
product work area somewhere in storage. 

Multiplying in Phase 3 with a Fixed Multiplier 

Multiplying with a fixed multiplier (125) can be spe- 
cified for all or any specific type of detail card by 
making the entries in columns 56-68 as shown in 
Figure 9. 

The first or second entry ? (whichever one is used) 
zeros (resets) and adds the constant 125 in the three 
high-order (left-hand) positions of the product area. 

Entry @ multiplies the 4-digit multiplicand punched 
in columns 31-34 of the detail card by the fixed multi- 
plier (125). When the multiplying operation is com- 
pleted, the product is in the seven low-order positions 
of the product area, thus destroying the multiplier. The 


fixed multiplier, however, is still available for subse- 
quent operations from the area labeled 125 or fix. 

Following the multiply operation @, another entry 
moves the product either to print positions and/or to 
an accumulator identified by a constant label. If the 
product is to be punctuated, an edit control word is 
first loaded into the desired print positions. The prod- 
duct is then moved to the same print positions with 
an E (edit) instruction. 

Multiplying in Phase 3 with a Variable Multiplier 

Multiplying with a variable multiplier can be specified 
for all or any specific type of detail card by making 
the entries in columns 56-68 as shown in Figure 10. 

Entry ? zeros (resets) and adds the variable 3-digit 
multiplier punched in columns 21-23 of the detail 
card into the three high-order (MPR) positions of the 
product area. 

Entry @ multiplies the 4-digit multiplicand punched 
in columns 31-34 of the detail card by the variable 
3-digit multiplier punched in columns 21-23 of the 
same card. The product is developed in the same 
manner as previously described. 
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Multiplying in Phase 2 

Multiplying in Phase 2 (total control cards) always 
involves three labels. One label identifies a fixed- or 
group-multiplier. A second label identifies an accumu- 
lated multiplicand, while a third label identifies the 
product. 

In establishing the size of the product, the same 
rule applies. However, because the multiplicand factor 
is an accumulated total, the maximum number of 
digits expected in the multiplicand must be predeter- 
mined before setting up a product work area. 

Having determined the size of the product, make 
the appropriate C and S entries on the constants con- 
trol cards coding-sheet (Phase 1) to set up the product 
work area. 

During the Phase-3 (detail) portion of the program, 
a fixed multiplier set up with a constant control card, 
or a group multiplier punched in a specific detail card 
within the control group, is moved to the MPR portion 
of the product work area. The detail multiplicands are 
accumulated in a storage area labeled, for example, 
MCD. On any given total level in Phase 2, multipli- 
cation is specified by making the entry in columns 
6-12 as shown in Figure 11. 

Entry @ multiplies the accumulated multiplicand 
labeled MCD (or any other label chosen by the pro- 
grammer) by the fixed- or group-multiplier moved to 
the MPR portion of the product work area during 
Phase 3. The product is developed in the product work 


area labeled PDT (or any other label chosen by the 
programmer). For example, in a payroll application, 
the multiplier might be labeled RTE (rate), the mul- 
tiplicand HRS (hours), and the product GES (gross 
earnings). In another application, the multiplier might 
be labeled UNP (unit price), the multiplicand QTY 
(quantity), and the product AMT (amount). 

Division 

Whenever FARGO report specifications involve a di- 
viding operation, a work area for accommodating the 
dividend and developing the quotient and dividend/ 
remainder must be set up in storage with constants 
control cards in Phase 1. The size of this work area 
must be equal to the sum of the number of digits in the 
divisor and dividend, plus 1. Assuming a 3-digit di- 
visor and a 4-digit dividend, the size of the work area 
can be readily determined by the following formula: 

3 (divisor) plus 4 (dividend) plus 1 = 8-position work area. 

Having determined the size of the work area, set up 
the area in sections to permit addressing specific 
locations of the quotient, dividend, and dividend/ 
remainder. These sections must be set up in proper 
sequence, which may vary, depending on the size of 
the dividend and the divisor. For the example used, 
the following analysis of the problem illustrates how 
this sequence is established. 
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PROBLEM ANALYSIS 


To set up the three sections of the work area in the 
sequence established by the foregoing analysis, make 
three entries in the constants control card coding-sheet 
as shown in Figure 12. 

Entry C (constant with a word mark) sets up the 
4-digit quotient section of the work area. 

The first entry S (constant without a word mark) sets 
up the high-order position of the dividend. This posi- 
tion is addressed when executing the divide instruc- 
tion. 

The second entry S sets up the remaining low-order 
positions of the work area, thus establishing the 8- 
position work area required for the example used. 

In some problems, the analysis will show that the 
quotient area and the dividend area overlap; that is, 
the high-order position of the dividend extends further 
to the left than the low-order position of the quotient. 
Example: 5-digit dividend, 2-digit divisor. 

Quot. | D/R 
|x|x|x|xjx|0|x|x| 

Dividend 

| | | |x|x|x|x]x| 

In such cases, the work area is set up in four sections 
as shown in Figure 13. 

Other variations are presented later in this manual 
under Half -Adjustments of Products and Quotients. 
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Figure 12 


CONSTANTS CONTROL CARDS - PHASE 1 
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Figure 13 


| | | | 8-position area required for example used. 


| | | | I | | | | Counting from the low-order position of 

the work area, draw a line to the left of 
the length of the divisor plus 1. 

3 (divisor) plus 1 = 4. 

Quot. | 

|x|x|x|x| | | | [ To the left of this line, a 4-digit quotient 

I is developed. 

' — ■ The units position is the address of the 

quotient upon completion of the divide 
operation. 

I Dividend 
+ 

x | x | x | x | ■ The 4-digit dividend with a plus sign in 
the units position is placed in the low- 
order positions of the work area with a 
zero and add instruction (?). 

The high-order position of the dividend 

must be addressed when executing the 
divide instruction. 

Quot. Div/Rem 
+1 + 

|x| x |x|xjO|x|x[x| The units position of the work area is 
T the address of the dividend/remainder 

* upon completion of the divide operation. 

With a 3-digit divisor, the dividend/re- 
mainder is always less than the divisor. 
Therefore, the position immediately to 
the right of the quotient is always zero. 
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Dividing in Phase 3 with a Fixed Divisor 

Assuming that the fixed divisor (3 digits) is set up in 
storage with a label fix, and the 4-digit dividend is 
punched in detail card columns 21-24, the divide in- 
structions are recorded in detail control cards Phase-3 
coding-sheet as shown in Figure 14. 

Entry ? zeros (resets) and adds the dividend punched 
in columns 21-24 in the four low-order positions of the 
work area placing a plus sign in the units position, if 
the dividend is positive. 

Entry % addresses the high-order position of the 
dividend, divides it by the fixed divisor, and develops 
a 4-digit quotient in the high-order positions of the 
work area labeled QNT. 

Following the divide operation, another entry moves 
the quotient to print positions and/or to accumu- 
lator identified by a constant label. If the quotient is 
to be punctuated, an edit control word is first loaded 
into the desired print positions; the quotient is then 
moved to the same print positions with an E (edit) 
instruction. 

Dividing in Phase 3 with a Variable Divisor 

Dividing with a variable divisor can be specified for 
all or any specific type of detail card. Assuming that 
the 4-digit dividend and the 3-digit divisor are 
punched in columns 21-24 and 25-27, respectively, the 


entries are made in columns 56-68 as shown in Fig- 
ure 15. 

Entry ? zeros (resets) and adds the dividend punched 
in columns 21-24 in the four low-order positions of the 
work area placing a plus sign in the units position, if 
the dividend is positive. 

Entry % addresses the high-order position of the 
dividend, divides it by the divisor punched in columns 
25-27, and develops a 4-digit quotient in the high- 
order positions of the work area labeled QNT placing 
a sign in the units position of the quotient. 


Dividing in Phase 2 

Dividing in Phase 2 (total control cards) involves an 
accumulated factor that may be either the dividend 
or the divisor. Once the sizes of these factors are 
known, appropriate C and S entries, as previously de- 
scribed, are made on the constants control cards cod- 
ing-sheet (Phase 1) to set up the work area. 

Assume that the accumulated factor developed in 
Phase 3 (detail portion of the program) under the label 
AMT (amount) is to be used as the dividend. The 
divisor is either a fixed- or a group-divisor, properly 
identified with any label chosen by the programmer. 
On any given total level in Phase 2, division is specified 
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by making the entries in columns 6-12 as shown in 
Figure 16. 

Entry ? zeros (resets) and adds the accumulated 
amount (AMT) in the low-order positions of the work 
area (D/R). 

Entry % addresses the high-order position of the 
dividend (DIV), divides it by the divisor (xxx), and 
develops the quotient in the high-order positions of 
the work area labeled QNT. 

Assume that the accumulated factor developed in 
Phase 3 under the label QTY (quantity) is to be used 


as the divisor. The dividend is either a fixed- or a 
group-dividend properly identified with any label 
chosen by the programmer. On any given total level in 
Phase 2, division is specified by making entries in col- 
umns 6-12 as shown in Figure 17. 

Entry ? zeros (resets) and adds the fixed- or group- 
dividend (xxx) into the low-order positions of the 
work area (D/R). 

Entry % addresses the high-order position of the 
dividend (DIV), divides it by the accumulated quan- 
tity (QTY), and develops the quotient in the high- 
order positions of the work area labeled QNT. 
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TOTAL CONTROL CARDS - PHASE 2 
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Half-Adjustments of Products and Quotients 

Products and/or quotients may be half-adjusted 
(rounded) by adding 5 to the position in the product 
or quotient immediately to the right of the wanted 
result. If the position to which the 5 is added stood at 
5, 6, 7, 8, or 9, a carry occurs to the units position of 
the wanted result, thus rounding the product or quo- 
tient by adding the carry-over 1. If the position stood 
at 0, 1, 2, 3, or 4, the carry does not occur and the 
product or quotient is not adjusted. This procedure 
is often used to round out results to the nearest cent. 
The following examples illustrate. 

Product Adjustment 

Assume a 4-digit multiplicand (with two decimals) 
and a 3-digit multiplier (all decimals). 


EXAMPLE 


Product 
Vi adjust 


34.85 


X . 125 
4.351625 

500 
4.36 125 


Rule for placing the decimal point in 
the product: 

The sum of the number of decimal 
positions in the multiplicand and 
the multiplier equals the number 
of decimal positions in the product. 


Rounded Product 


Dropped decimals 


PROBLEM ANALYSIS 


| | | | | | [ | | 4-digit multiplicand plus 3-digit multi- 
plier plus 1 = 8-position work area. 

MPR 

Hh 

| x | x | x | | [ | | | 3-digit multiplier area (label MPR). 
125 

PRODUCT + 


|0|xjx|x|x|x|x|x| 
0 0 4.3 5 6 2 5 


t_ 


+ 

500 


ADJ 

+ | 

|0[x|x|x|x 

0 0 4.3 el 


PDT 

+ 

X | X | X j 

1 2 5 


Units position of developed product (label 
PDT). Upon completion of multiply op- 
eration, sign in this position must be 
moved to the units position of Constant 
500 (label RND). 

RND with sign must then be added into 
the 3 low-order positions of the devel- 
oped product. 

Units position of wanted product. 


Units position of adjusted product (label 
ADJ). Sign in units position of PDT must 
be moved to units position of ADJ. 


To set up the three sections of the 8-position work 
area (MPR, ADJ, PDT), the constant 500 (RND), and 
an edit control word (ECW) to edit the adjusted 
product, five entries are made in the constants control 
cards coding-sheet as shown in Figure 18. 

Characters &CR in the edit control word are not 
required if the products are always positive. The zero 
(0) to the left of the decimal point suppresses all 
insignificant zeros to the left of the decimal point, and 
the & causes a space between the units position of 
negative amounts and CR symbols. Examples of edit 
printing: 

.09 
4.36 
15.08 
.07 CR 
8.39 CR 
29.06 CR 

To make proper entries on the coding sheets for this 
example, base the specifications on the following as- 
sumptions. 

1. Multiplication is to be accomplished for all detail 
data cards (Phase 3). 

2. Multiplier is punched in columns 21-23, with an 
X punch in column 23 if negative. 

3. Multiplicand is punched in columns 31-34, with an 
X punch in column 34 if negative. 

4. Adjusted product (positive or negative) is to be 
edited and printed in print positions 101-109, with 
no sign if positive, and cr symbols if negative. 

To accomplish item 4, make the following entries in 
addition to those required to perform the basic mul- 
tiplication. 

1. Move the plus or minus sign from the units position 
of the developed product to the units position of 
the constant RND 500. 

2. Add RND with sign to the low-order positions of 
the developed product (PDT). 

3. Move the sign from the units position of PDT to 
the units position of the adjusted product (ADJ). 

4. Load edit control word (ECWbbO.bb&CR) to print 
positions 101-109. 

5. Edit and print ADJ in print positions 101-109. 
Seven entries are required in various columns of 

detail control cards (Phase 3) coding-sheet as shown 
in Figure 19. 
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CONSTANTS CONTROL CARDS - PHASE 1 

c 

or 

S 

No. 

Pos. 

Label 

Column 1 C = Constant with a word mark; S - Constant without a word mark 
Columns 2-3 — Size of Constant Word 
Columns 4-6 = Label to identify Constant Word 

Columns 7-72 = Field for punching Constant Word (66 characters maximum) 

n 

n 

4 6 

7 10 15 20 25 30 35 40 45 50 



Mp 

* 

0\0\0\ 1 1 1 ||)| 1 1 ! II 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 11 U 1! M 1 1 1 II 1 

S 

ffl 

no 

5 

. \ Work Area 

°\°\ 1 1 1 1 1 l|l 1 1 II 1 1 1 1 1 1 l.i 1 1 1 ! 1 1 1 1 ! i 1 1 1 1 ! 1 ! 1 1 1 1 l 1 

0 

m 

m 

0 

0-0\0\ 1 1 1 1 |J| 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 ; 1 1 if 1 1 

E 

03 

m 

E 

S~\°\o\ 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 ! II 1 1 1 !! i 1 1 1 I 1 1 

S 

EG 

m 

B 

l lO|.| I 4\C\R\ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 II 1 1 1 l.l 1 l 1 l.l 1 1 1 III 

L 

_ 

n 

1 

1 1 1 I 1 1 1 1 I 1 1 1 1 1 1 ! i M 1 1 III II 1 1 1 1 1 1 1 1 1 


Figure 18 


DETAIL CONTROL CARDS - PHASE 3 



Type of 
Defalt 
Card 

Special 4 or 
7 position 


E 

L 

Z 

D 

Y 

— Edit 

~ Load Edit Control Word 
= Move Constant Data 

— Move and Suppress Zeros 
= Move Digit 

= Move Zone 

E Edit DETAIL CARD DATA 

M — Move 

Z — Move and Suppress Zeros 
> = Move Digit 
Y = Move Zone 

A — Add; S — Subtract 
@ = Multiply; % = Divide 
? — Zero Add; ! — Zero Subtract 
D — Move Digit; Y — Move Zone 
M — Move ' 

Z — Move ond Suppress Zeros 

1 

— Char. 
= Zone 


1401 Instruction 
(actual) 


i— 


Label 

Print 

Positions 

Punch 

Positions 

Data Card 
Columns 

Print 

Positions 

Punch 

Positions 


Data Card 
Columns 

Label 
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■ 

n 


To 

From 

From 

To 

From 

HI 


To 

From 

H 

From 

H 

From 

To . 

mi 


n 

B 

iembb 

B 


OH 


[0 

lEHES 

EmEu 

m 



EEHE2 

'EIHEE 






EHE 

fshrt 

m 


BWTi’ 

SHE] 

EPHRiJI 

E 

i 

BS 

fl 


flfll 

H 


HI 

in 

i 

m 

m 

HI 

IH 

HI 

HI 

IH 

HI 

HI 

HI 

HI 

B 

m 


HI 


B 

fi 


fl 



HI 


IBB 

m 


m 

HI 

m 

m 

IH 

HI 

HI 

HI 

HI 

IH 

HI 

l. 


BH 

IH 


B 

B 


B 


BH 

BBI 


BIB 

m 


IH 

HI 

HI 

HI 

HI 

HI 

HI 

HI 

HI 

HI 

IH 

a 

HI 

HI 

P\J>\T 


B 



B 


BBB 

IH 


IH 

m 


IH 

m 

HI 

m 

IH 

IH 

HI 

HI 

HI 

HI 

HI 

B 

HI 

HI 


0138 

B 

n 

HIB 

H 


Bflfl 

m 


BIB 

m 

i 

IH 

HI 

HI 

HI 

IH 

HI 

HI 

HI 

HI 

HI 

HI 

c 

HI 

HI 

BBB 


B 

B 

flffl 




IH 


Bflfl 

IH 

a 

BIB 



HI 

IH 

HI 

HI 

HI 

IH 

HI 

HI 

1 

IH 

HI 

HI 

m 

I 


IBB 

B 


IBB 

m 


IH 

m 
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Figure 19 
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Quotient Adjustment 

Assume a 6-digit dividend (with two decimals) and a 
3-digit divisor (with no decimals). 


EXAMPLE 


0034.856 

125)4357.120 

375 

607 

500 

1071 

1000 


< — Extended quotient adjusted to 34.86 by 
adding 5 to the units position. 

Rule for placing the decimal point 
in the quotient: 

Number of decimals in the divi- 
dend minus the number of deci- 


712 (end of actual 
dividend) 


mals in the divisor equals the 
number of decimals in the quo- 


625 tient. 

870 (dividend 
extended) 


750 

120 (end of 
division) 


PROBLEM ANALYSIS 


| | | | | j j | | | | | 7-digit extended dividend plus 3- 
digit divisor plus 1 = 11-position 
work area. 


Quotient | 

j | | | [ | | [ | | Line to the left of the number of 
digits in the divisor plus 1 locates 
the extended quotient including sign 
in the units position. 


Dividend 4 

|x|x]x|xjx|x| | 

4 3 5 7.1 2 0 



|x|x|x|x|x|x|x 
0 0 3 4.8 5 6 


+ 

0|x|x|x| 
0 12 0 


< Units position of extended divi- 

dend (label EXD). Supplied by mov- 
ing constant 0 or blank to EXD. 
Units position of actual dividend (la- 
bel ACD). To signal end of division, 
sign in this position resulting from a 
zero and add instruction must be 
removed and transferred to the units 
position of extended dividend before 
executing the divide instruction. 
High-order position of actual divi- 
dend (label DIV). This position is 
addressed when executing the divide 
operation. 


+ 

5 


Adj.Quot. 

lx|x[x|x|xlx 
0 0 3 4.8 6 

t t 


x 1 0 j x ! x | x 

10 12 0 


Units position of extended quotient 
(label EXQ). Upon completion of the 
divide operation, sign in this posi- 
tion must be moved to Constant 5 
(RND). 

FIND with sign must then be added 
to units position of extended quo- 
tient. 


Units position of adjusted quotient 
(label ADQ). Sign in units position 
of EXQ must be moved to units po- 
sition of ADQ. 

High-order position of ADQ. 


To set up the various sections of the work area in 
the proper sequence and to set up other required con- 
stants as analyzed in the foregoing, make entries in 
the constants control cards coding-sheet as shown in 
Figure 20. 

To make the proper entries on the coding sheets for 
this example, base the specifications on the following 
assumptions. 

1. Division is to be accomplished for all detail data 
cards (Phase 3). 

2. Dividend is punched in columns 31-36, with X 
punch in column 36 if negative. 

3. Divisor is punched in columns 37-39, with X punch 
in column 39 if negative. 

4. Adjusted quotient (positive or negative) is to be 
edited and printed in print positions 101-111 with 
no sign if positive and cr symbols if negative. 

To develop adjusted quotient as specified, make 
entries in the various columns of the detail control 
cards (Phase 3) codin g-^sheet as shown in Figure 21. 
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FARGO General Program Operation and 
1401 Core-Storage Organization 

The following table describes in summary the se- 
quence of events occurring during the loading of the 
combined FARGO program decks and the control 
cards punched from the coding sheets. 

Code in 

Column 77 Program Operation and Core-Storage Organization 

0 FARGO Phase 1 program is loaded temporarily into 
locations 2618-3313. 

FARGO program is loaded permanently into loca- 
tions 3314-3699 during Phase 1. 

1 Phase- 1 control cards coded M, B, C, and S modify 
the permanent FARGO program, load up to 50 con- 
stants into storage beginning with location 333, and 
set up a table in locations 3700-3999 indicating the 
location of each constant. 

2 FARGO Phase-2 program is loaded temporarily into 
locations 2306-3313, canceling out the temporary 
FARGO Phase- 1 program. 

3 Phase-2 control cards coded T generate total instruc- 
tions and load them into locations immediately fol- 
lowing the constant area. 

4 FARGO Phase-3 program is temporarily loaded into 
locations 2301-3313, canceling out the temporary 
FARGO Phase-2 program. 

5 Phase-3 control cards coded D generate detail in- 
structions and load them into locations immediately 
following the total instructions. The last instruction 
generated in Phase 3 will be BE66. 

6 FARGO Phase-4 program is loaded into locations 
3023-3313, canceling out a portion of the temporary 
FARGO Phase-3 program. 

7 Phase-4 control cards coded H load the report-head- 
ing information into locations immediately following 
the last BE66 instruction generated in Phase 3. 
The constant table in locations 3700-3999 set up 
during Phase 1 is cleared and the Phase 4 control 
cards coded F load the field-headings information 
into this area. 

Location 2358 (or less) up to location 3313 is avail- 
able for storing patch subroutines. 
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FARGO Report Examples 


Register of Earnings and Deductions 

This report will be listed on blank paper. Specifications 
include the following operations: 

1. Report and Field Headings with overflow and page 
numbering. 

2. Minor and Intermediate Controls. 

3. Group-indication of control fields. 

4. Addition and Subtraction (two types of detail data 
cards). 

5. Three minor totals, three intermediate totals and 
three final totals. All amounts listed and total- 
printed will be edited. 

Report format and completed FARGO coding 
sheets are shown in Figures 22- A to 22-E. An exam- 
ple of the finished report is shown in Figure 22-F. 


Remittance Statement and Voucher Check 

Statement and voucher check will be prepared on 
preprinted inverted forms. Statement portion of form 
provides for listing of debit and credit accounts pay- 
able items (4 types of detail data cards punched 1-4 
in column 7), total printing of date, vendor number, 
and an edited statement total with floating $. 

Voucher check provides for date, vendor number, 
check number, and edited check amount with floating 
$ on one line. This is followed by a space and 3-line 
printing of name, address, and city read into storage 
from a card punched — (11-punch) in column 7. A 
fourth line address, when required, is read into stor- 
age from a trailer address card punched & (12-punch) 
in column 7. Name and address cards precede detail 
data cards. 

Specifications include punching of a summary card 
for both valid and void (overflow) checks. The sum- 
mary cards, including those punched for void checks, 
will be used to prepare check registers and for check 
reconciliation. 

Valid checks are printed and summary punched 
with FARGO instructions. Void checks are printed 
and summary punched with instructions from a patch- 
ing subroutine. 

Format of Remittance Statement and Voucher 
Check and completed FARGO coding sheets are 
shown in Figures 23-A to 23-G. Patch subroutine card 
format is shown in Figure 23-H. Examples of state- 
ments and checks are shown in Figure 23- J. 
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FIELD HEADINGS CONTROL CARDS - PHASE 4 1 
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7 

0 

1 

3 

F 

4_ 
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mm 

7 

0 

1 

4 

§ 

INOTE: BUNK CARD PUNCHED # IN COLUMN 1 MUST FOLLOW LAST CONTROL CARD IN PHASE 4 


L 

0_ 


a 


M 

L 

* 

O 

1 

o 

* 

• 

0) 

a 

a. 

P 

Page No. 

FIELD 1 

F 1 E L D 2 

Print 

Positions 


Data Card 
Columns 

Print 

Positions 


Data Card 
Columns 

Print 

Positions 

From 

To 

M 

Z 

From 

To 

From 

To 

M 

Z 

From 

To 

From 

To 

1 

2 

3 

4 

5 7 

8 10 

11 

12 14 

15 17 

18 20 

21 23 

24 

25 27 

28 30 

31 33 

34 36 

M 

L 

o 

P 


££|± 

2 

£1U± 



£1L£ 

* 

£i£il 

mt 

£1111 

£1*11 


MASTER REPORT CONTROL CARD - PHASE 1 


Data Card 
Columns 

Print 

Positions 

From 

To 

From 

To 

38 40 

41 43 

44 46 

47 49 

LL 

-LL 

-LL 

-LL 


FIELD 4 


so 


Data Card 
Columns 

Print 

Positions 

From 

To 

From 

To 

51 53 

54 56 

57 59 

60 62 

-LL 

-LL 

-LL 

J-L 


Fields 1-4 = Group 
Indication Fields 
(First Card Minor) 

M = Move 
Z — Move and 

Suppress Zeros 



Sequence 

Number 


CO 

Co 



• 

Control Field | 
Card Cols. 1 

6 

• 

From 

To 

i 

2 

3 5 

6 8 

B 

1 

6\f 17 

0|2|t 

B 

2 

f 

*i/iY 

0|/|4 

B 

3 

i i 

1 1 

B 


_LL 

_LL 


CONTROL BREAK CONTROL CARDS - PHASE 1 


First Level Control (minor) 

Second Level Control (intermediate) 
Third Level Control (major) 

Fourth Level Control 


Sequence 

Number 

77 

78 80l 

1 

0 

0 

1 

1 

0 

0 

2 

1 

Jj 

0 

3 

1 

°i 

£ 
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FARGO REPORT SPECIFICATIONS 


Phase 1 


PROGRAM IDENTIFICATION 
DATE /*.//&■/*/ 


73[74l7jj76l 


Page. s>? of $ L . 


CONSTANTS CONTROL CARDS - PHASE 1 


No. 

Poj. 


Label 


Column 1 C = Constant with a word mark; S = Constant without a word mark 
Columns 2-3 = Size of Constant Word 
Columns 4-6 = Label to identify Constant Word 

Columns 7-72 = Field for punching Constant Word (66 characters maximum) 


Sequence 

Number 


2 3 


10 


15 


20 


25 


30 


35 


45 


50 


55 


60 6£ 


78 80 


old|o|o|6| 


Employee Earnings Counter 


c\o\ 


Q|0[0[0|0|0| 


Dept. Earnings^Counter 


£ 


P 2 


oj^| q| oiajoi a 


Final Earnings Counter 


ao 


Q| Q[OJO |Q| 


■njpl^y^e D^dyctiops |Cc|ut|1 


fl|Q|0|0|O|O| 


Dept. Deductions Counter 


epl 


ijntei 


o\o\a\£i\o\o\ 


Final Deductions Counter 

J I i . i i . i , i i 1 L l 


*1 


O\O\O\Q\0\ 


Employee Net Pay Counter 

i i ii , i nr i i -1.-1 


N 


a | o [ Q[ <3| o |o I 


Dept. Net Pay i Counter 


Al 


o\o\o\a\o\o\o 


Final Net Pay Counter 

I 1 1 1. I I 1 I I I 


M 


amiPi- irioiri 


A[t 


J_L 


ilL 


PAiim-jn*. 


m 


Total Identifications 


N 


.fi'j M ikjri 


«j n 


uL 


*4 


-r 


1 OL 


! SdJ|t (Zoptrol^ Word 


I 1 .1 I 1 I 


_LL 


J_L 
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Special 4 or 
7 position 


Column Split 


C = Char. I 1401 Instruction D = Mov . Digit 


Y — Move Zone 


"§ Card C ° 

u Cols. 2 P 


INTERNATIONAL BUSINESS MACHINES CORPORATION 

«JBM 1401 DATA PROCESSING SYSTEM 
FARGO REPORT SPECIFICATIONS • Phase 3 


E = Edit 

L = Load Edit Control Word 
M — Move Constant Data 
Z ~ Move and Suppress Zeros 
D = Move Digit 
Y = Move Zone 


DETAIL CONTROL CARDS - PHASE 3 

” [ 7 =Edit DETAIL CARD DATA 


E - Edit DETAIL CA 

M — Move 

Z = Move and Suppress Zeros 
D = Move Digit 
Y =: Move Zone 


Label 

Print 

Positions 

Punch 

Positions 

> t From 

From 

To 

From To 

21 22 24 

25 27 

28 30 

31 33 34 36 

L £|C|W 

4>|i|4T 


II II 

L £|C|W 


c\S\C 

II II 

L £|C|W 


°\*\S 

II II 

L^ICIW 


0\f]L 

H-U U_ 



Data Card 
Columns 

Print 

Positions 

Punch 

Positions 


*** 

From 

To 

From 

To 

From 

To 

37 

38 40 

41 43 

44 46 

47 4?l50 52] 

53 5i 

£ 

o \n\(* 

0\f\6 

o\l\S 

o\J\£ 

' | | 

I ] 

£ 

v-im 

0\f\0 

0\*f\C 



I | 

£ 

o\o\(t 

6\f\0 

o|j|jr 

o\*t\ IT 

1 | 

I I 

£ 

mm 

o\Z\o 

°UBk 

DI4H6 

1 1 

1 1- 


PROGRAM IDENTIFICATION hnWi 




A = Add; S = Subtract 
@ = Multiply; % = Divide 
? — Zero Add; ! — Zero Subtract 

D — Move Digit; Y — Move Zone ... 

.. — .. After 

M — Move O; 

Z — Move and Suppress Zeros i Print Sequence 

• i ' ~ ' 1 _ Number 


£§ 69 70 71 72 77 78 80 



P\l S\P t 5 « 2 0 

£1/ | ±±JL± 

Pit S\P / 5 Q 4 Q 

I I 5 5 0 


Data Card 
Columns 

Label 

*** 
> f From 

To 

From 

To 

56)57 59 

60 62 

63 65 

66 68 

A mi* 

0|fl* 

1 | 

*\4\ f 

Am* 


1 | 

y\p\i 

a mix- 

o\t\o 

1 1 

T> |£|/ 

k&m 

mip 

-Li - 

N\P\t 
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1 

REGISTER OF 

EARNINGS AND 

DEDUCTIONS 

- PAGE 1 

1 

o 
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1 o 


1 

EMPLOYEE NO. 

EARNINGS 

DEDUCTIONS 

NET PAY 

1 


! 

0 EPT . SERIAL 

AFTER TAXES 



1 

o 

1 





1 o 



1 00120 

125.75 


125.75 






3.75 

3.75CR 


o 

1 



1 . 10 

1 . 10CR 

1 o 


1 



4.00 

4.00CR 

1 


1 

EMP .TOTALS 

125.75 

8.85 
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1 

o 

1 





1 o 



1 00121 

85.00 


85.00 

1 





4.75 

4.75CR 


o 

1 

EMP. TOTALS 
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4.75 
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! o 


1 

1 00122 
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1 

o 

1 
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1 . 25CR 

1 o 
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o 
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! o 


1 

EMP .TOTALS 
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1 

0EPT. TOTALS 
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1 o 
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vJ 

l 

1 
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185.00 

.00 

185.00 



1 

11 23816 
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160.00 

1 

vj 
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25.00 

25.00CR 



1 
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3.95CR 


o 

1 

EMP. TOTALS 

160.00 
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i 

i o 


1 

11 23905 
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115.00 

i 
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5.63CR 

1 o 
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10.00CR 



EMP .TOTALS 
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1 

o 

1 

1 
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1 

o 

1 

1 
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o 
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1 
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o 
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i o 


1 

1 
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DEDUCTIONS 
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o 
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1 o 


1 

EMPLOYEE NO. 

EARNINGS 

DEDUCTIONS 

NET RAY 



1 

DEPT. SERIAL 

AFTER TAXES 



1 

o 

1 





1 O 


1 

11 23919 


5.00 

5 ,00CR 



1 

EMP .TOTALS 

o 

o 

5.00 

5 .iOOCR 


o 

1 





! o 


1 

DEPT. TOTALS 

460.00 

49.58 
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o 

1 
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o 

1 
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] O 


l 
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o 
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1 o 
1 
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3.10 
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o 

1 

EMP. TOTALS 

192.50 
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1 

1 o 
1 

1 

124 01070 
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25.00 

25.00CR 

1 

o 

1 

EMP. TOTALS 

225.00 

25.00 

200 .00 

1 o 


1 

124 01080 
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1 

o 

1 



22.00 

22.00CR 

1 o 

1 



10.00 

10.00CR 

o 

1 

EMP. TOTALS 

155.45 

32.00 

123.45 

1 

1 o 
1 

1 

1 

DEPT. TOTALS 
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474.20 

o 
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1 
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o 
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o 
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Figure 22-F. Register of Earnings and Deductions Report 




Figure 23-A. Specifications for Remittance Statement and V oucher Check 


IBM 


CARD TYPES 


FIELD HEADINGS/WORD MARKS 


INTERNATIONAL BUSINESS MACHINES CORPORATION 

IBM 407, 408, 409, 1403 AND 1404 PRINTER SPACING CHART 

6 Lines Per Inch 


NAME AND ADDRESS CARD 

Vendor 

: 

r 

(FIRST LINE) Name 


■MBMMMMIIIWWM 



WM Ml II Hill 

— | 



i 

- (11 punch) in column 7 


1 

■ 




£<>!< 



gw 



1 1 1 1TTTI 1 1 1 rTTTJ 1 1 1 

J i urn 1 1 


1 1 1 in i ii 

ZED 


S (12 punch) in column 7 


Mai 




TTTTI 


BVendcu^ ^ ^[MojDa] Refer. | 


nr 


TTTT 


SUMMARY CARD 


GLIUE 


►I< >l< u k< Ta ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 


IsLl 


S 5 


TTTTT 


I I I I l" l Mi l l 


General Manufacturing Company — Endicott, N. Y. 


We enclose 
check in full 
payment of 
items listed 


j CODES: 

I 1. Invoices 
1,2. Claims 
I 3, Discounts 
Allowances 


' DETACH CHECK 
1 BEFORE DEPOSITING 


Invoice 

Our Ref. 
Number 

Invoice or 
Claim Amount 

Discount or 
Allowance 

1 

AMOUNT 

ids9 

USm 

XX 

XX 

XXXX 

XX, XXX. XX 


1 

XX, XXX. XX 

XX 

XX 

XXXX 


XX, XXX. XX 

3 

XX, XXX. XX- 

XX 

XX 

XXXX 

XX, XXX. XX 


2 

XX, XXX. XX 

XX 

XX 

XXXX 


XX, XXX. XX 

4 

XX, XXX. XX- 


xx/xx/xx 

xxxxx 

Date 

Vendor 


.$xx,xxx.xx 


GENERAL MANUFACTURING 

COMPANY 

Endicott, N . Y . 


GENERAL BANK 

1452 

AND TRUST CO. 

320 

ENDICOTT, N.Y. 


PAY TO THE | Date 1 Vendor 1 Check No. 

| Amount 

ORDER OF | xx/xx/xx 1 xxxxxl xxxxx 

| |$XX,XXX.XK 

xxxxxxxxxxxxxxxxxxxxxxxx 


XXXXXXXXXXXXXXXXXXXXXX GENERAL MANUFACTURING COMPANY 

xxxxxxxxxxxxxxxxxxxx 


XXXXXXXXXXXXXXXXXXXXXX 



Treasurer 


GeneraFManufacturing Company — Endicott, N. Y. 


Invoice Our Ref, 
check in full | Mo. | Day Number| Claim Amount 


Discount or 
Allowance 


REPORT SPECIFICATIONS 
MASTER REPORT CONTROL CARD - Ust 

CONTROL BREAK CONTROL CARD - Minor Control on Vendor (columns 1-5) 
DETAIL CONTROL CARDS 

All - Move Vendor (columns 1-5) to VEN 

All - Branch to patch subroutine to test for overflow (see Figure 23 -G) 

Code 

- Move Name, Address and City to NME, ADD and CTY; space 1 (see NOTE) 
& Move Trailer Address to TRL; space 1 

[ 1 Edit Inv. Date (IDA); Move & Zero Suppress Reference; Move Code; Edit! 

2 Amount (EC1); add Amount to TOT; space 1 J 

[ 3 Move Zone (-) in column 6 to column 37; Edit Inv. Date, etc. same as"! 

4 for codes 1 and 2 J 


Overflow - Execute patch subroutine 
TOTAL CONTROL CARDS 

Before print skip to carriage tape channel 5 
Move Statement and Check Date (SCD) to print area 
Move & Zero Suppress Vendor (VEN) to print area 
Edit (EC 2) TOT and print 


NOTE: Although the first printing line is 

indicated on Line 4 of the carriage tape, 
printing of the first detail data card for 
each vendor occurs on Line 5 if only one 
address card or on Line 6 if two address 
cards. This is because the last control 
card of each type of card to be processed 
requires a space code (rule). On overflow 
forms printing starts on Line 4. 


Before print skip to carriage tape channel 6 
Add "1" (ONE) to Check No. (CKN) 

Move Statement and Check Date (SCD) to print area 
Move & Zero Suppress Vendor (VEN) to print area 
Move & Zero Suppress Check No. (CKN) to print area 
Edit (EC2) TOT and print 

Move Statement and Check Date (SCD) to punch area 
Move Vendor (VEN) to punch area 
Move Check No. (CKN) to punch area 

Move TOT to punch area; remove sign from units position of TOT 
Clear TOT and punch 
Space 1 before print 

Move Name (NME) to print area and print 
Move Address (ADD) to print area and print 
Move City (CTY) to print area and print 
Move Trailer Address (TRL) to print area and print 

Move CLR to TRL to clear Trailer Address and skip to carriage tape channel 1 


Vertical spacing 1/6” 


J73 , 0/2 , ; 3 Vi", 6” 

7". 7Vz", 8'/ 2 ", 11 " 


2|3|4l5|6|7l8|9H>Hl2|3|4l5l6l7l8|9HHl|2|3i4[5|6|7|8|9|O|li2|3|4l5l6l7l8l9lOlll2l3l4l5lSl7l8l9l0lll2l3l4l5[6l7l8|9i0lH2|3|4l5l 
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/ &.m 

73|74|75 
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FARGO REPORT SPECIFICATIONS 


Phases 4 and 1 


PROGRAM IDENTIFICATION 
DATE / 3- // L Pnge / of_4e_ 


REPORT HEADING CONTROL CARDS - PHASE 4 


H 

Card | 

Two Cards (one line) Card 1 — Print Positions 1-66; Card 2 — Print Positions 67-132 

s 

equence 

dumber 

1 

2 

15 10 15 20 25 30 35 40 45 50 55 60 65 68 


77 

78 

80 

H 

1 

II i || ii | i i II i I M l I I II l I \ II l 1 II II 1 II 1 i 1 1.1 L. LI .1 II 1 1 I 1 .1 1 . Li 1 1 1 _L .1 J 

iBpI 

_7 

0 

ojj. 

H 

2 

1 1 1 1 1 1 1 1 II 1 1 1 1 1 II 1 1 1 \/X 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 II 1 1 1 i 1 1 1 II 1 1 II 


_7 

LI 

0 1 2 




| FIELD HEADINGS CONTROL CARDS - PHASE 4 | 

F 

Card 

Four Cords (two lines) Card 1 — Print Positions 1-66; Card 2 — Print Positions 67-132 

Card 3 = Print Positions 1-66; Card 4 = Print Positions 67-132 

Sequence 

Number 

1 

2 

3 5 10 15 20 25 30 35 40 45 50 55 60 65 68 


77 

78 80l 

F 

1 

II 1 II 1 1 II 1 1 1 1 1 1 1 II 1 1 1 1 1 II 1 l£^l II 1 1 II 1! 1 1 11 1 1 11 II 1 1 1 1 II 1 1 1 II II 1 1 1 1 1 

llB 

7 

0 

1 

1 

F 

2 

i i i i ii i i ii i ii i i ii ii i i i i i i i i i m i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 


7 

A 

1 

2 

F 

3 

i i ii ii i ii i i i i i i ii m i /n i i i i i i i i i i ii i i i i i i i i i i i i i i ii i i i i i i i i i i i i ii 


1 \ 

n 

0 

1 

3 

c 

4 

1 1 1 II 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 M 1 1 1 M 1 1 1 1 1 1 1 II .1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

mm 

7 

0 

1 

4 

# 



MASTER REPORT CONTROL CARD - PHASE 1 


M 

L 

* 

o 

cc 

a> 

> 

o 

o 

-o Page # 

Page No. 

FIELD 1 

FIELD 2 

FIELD 3 

FIELD 4 

Fields 1-4 — Group 
Indication Fields 
(First Card Minor) 

M = Move 
Z = Move and 

Suppress Zeros 

Sequence 

Number 

Print 

Positions 


Data Card 
Columns 

Print 

Positions 


Data Card 
Columns 

Print 

Positions 

M 

Z 

Data Card 
Columns 

Print 

Positions 

M 

Z 

Data Card 
Columns 

Print 

Positions 

From 

To 

M 

Z 

From 

To 

From 

To 

M 

Z 

From 

To 

From 

To 

From 

To 

From 

To 

From 

' 

To 

From 

To 

1 

2 

3 

4 

5 7 

8 10 

11 

12 14 

15 17 

o 

CN 

2 

21 23 

24 

25 27 

28 30 

31 33 

34 36 

37 

38 40 

41 43 

44 46 

47 49 

50 

51 53 

54 56 

57 59 

60 62 


177 

78 S0| 

M 

L 



JJ- 

JJL 


JLL 

_LL 

| | 

| | 

J 

J-L 

J-L* 

| | 




_LL 

_LL 

| | 


J-L 

JLL- 

J^ 

| | 



o 

o 

o 


| CONTROL BREAK CONTROL CARDS - PHASE 1 



Control Field 






B 


Card Cols. 


Sequence 

a> 

From 

To 


Number 

1 

2 

3 5 

6 8 


77 

78 


80 

B 

1 

qq/ 

qo|6 

First Level Control (minor) 

1 

0 

0 

1 

B 

2 

1 | 

1 1 


1 

0 

0 

2 

B 

3 

l I 

l i 

Third Level Control (major) 

1 

0 

0 

3 

B 

4 


_LL 



£ 




Co 

CO 
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CONSTANTS CONTROL CARDS - PHASE 1 



PROGRAM IDENTIFICATION lZ3[74j7576. 


/<*-// */6, / 


mmm 

mm 

mm 


Column 1 C = Constant with a word mark; S — Constant without a word mark 
Columns 2-3 =Size of Constant Word 
Columns 4-6 — Label to identify Constant Word 

Columns 7-72 = Field for punching Constant Word (66 characters maximum) 


Edit Control Word to obtain space between month and day (invoice date) 


Sequence 

Number 




i i 1.1 


Edit Control Word for amounts listed on statement 

Ml hi... 1 LI LI. .-LI I J IJ. LI I .LI LI I .1 1 1 

0 , | , . . Ep Control Word for total paid apioun 




II II I I I M II I M I II M I I M M I 


Vendor 

O\0\0\O\O\ I I I I II I I I I I I I II I I I I II I I I II I I I I I I I I I I I I I I I I I I I I I I I I I I 


"Total Paid" counter 

O\O\O\#\O\0\O\ II I I I I I I I I I I M II I II I I I I II I II I I I I I II I I I I I I I I I I I II I I 


mm 

BBEEBEI 

BEEESSfflKiIMKK] 

BBBEBBffllilliHBiK5B3ii3E^3SiB 


Last check # used. First check # to be printed and punched is 19876. (This card is changed for eyery 

i i ii ii h ii i i ii ii M i n n i r 1 1 11 1 1 1 1 1 f 1 1 1 “ ?l 1 1 ' 1 


CMMlUfUini 

BIBB™ 

BIBBER 

BIIB5B 

mm 


BBBBl 


Label to clear out fourth line trailer information 

I II I I I II I I I I I II I I I II I II I I I I I I I II 


I II II II II I 1 II II I I I II I I II I I II I II 













C — Char. 
Z = Zone 


Special 4 or 
7 position 
1401 Instruction 
(actual) 


Column Split 


D — Move Digit 
Y — Move Zone 


E — Edit 

l = Load Edit Control Word 
M = Move Constant Data 
Z = Move and Suppress Zeros 
D = Move Digit 
Y = Move Zone 


DETAIL CONTROL CARDS - PHASE 3 


E ~ Edit DETAIL CARD DATA 

M — Move 

Z Move and Suppress Zeros 
D = Move Digit 
Y = Move Zone 


II BE 


Labe! 

Print 

Positions 

Punch 

Positions 

From 

From 

To 

From 

To 


Data Card 
Columns 

Print 

Positions 

Punch 

Positions 


To 

From 

To 

From 

To 

From 


A = Add; S — Subtract 
@ — Multiply; % — Divide 
? = Zero Add; ! = Zero Subtract 
1 = Move Digit; Y = Move Zone 
A = Move 

L — Move and Suppress Zeros 


Data Card 
Columns 


After 

Print Sequence 
Number 


IE! BMEiDBE EBgBBEBEgiMEEMEElMEiggElIBCinMggg^ggMEEiM^CTE E2EMEgiBEBMM-lJB.il Bv FITHEBEZEMEE 


er testing 


LMiUsHUmiil 


mm 


3000t 



m 


eci* m? 



USUI 


BEHBHBlI 

SBBBBBB 


IBBBBBB 


HEBBBBB 


IBBBBBB 
















































Figure 23-E 
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/u|yjp 

73|74l75|76 


PROGRAM IDENTIFICATION 


DETAIL CONTROL CARDS - PHASE 3 


D 

Type of 
Detail 
Card 
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Figure 23-F 
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If on channel 12, branch to K10 


If not on channel 12, branch back to next instruction 
in Phase 3 


Compare Vendor Number in columns 1-5 of all cards with 
Vendor Number stored in Location 333-337 'J 


If unequal, branch back to the first instruction in Phase 2 5 


If equal, skip to carriage tape channel 6 


Add "1" to Check Number 


Load Date into punch positions 1-8 


Move Vendor Number stored in Location 376 into punch 
positions 9-13 


Move Check Number into punch positions 14-18 


Move V-O-I-D into punch positions 19-25 


Punch summary card for voided check 
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J i 7 I I Load Date into print positions 20-27 


Move and Zero Suppress Vendor into print positions 
29-33 


Move and Zero Suppress Check Number into print posi- 
tions 35-39 


sitions 48-57 


Print voided check 


Clear print area 


Bl 


Skip to carriage tape channel 1 


ranch back to Location 731. This is the address of the 
irst instruction in Phase 3 that follows BK01 


Constant "1" to increase Check Number fo: 


Constant V-O-I-D to void overflow checks 


NOTE: The following addresses of the various instructions in the patch subroutine were 
determined from the storage printout after testing the main FARGO program: 
Address 

KOI = Starting location (2201) of patch subroutine 

337 = Location of low-order position of Vendor Number for compare purposes 
371 = Statement and Check Date (label SCD) 

376 = Vendor Number (label VEN) 

388 = Check Number (label CKN) 

500 = Location of first instruction in Phase 2 after control break 
731 = Location of instruction in Phase 3 immediately following BK01 



Figure 23-G. Patch Subroutine Instructions 
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K 88 

1060 
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A004080 
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lo 6 
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B001 

on 

Clear & Branch Card 
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_ 
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/C14080 

_ 

_ 




NOTES: Card columns 1-4, S-ll, and 60-80 are prepunched as recommended in the 
IBM 1401 Reference Manual, Form A24-1403, under PROGRAM LOADING 
ROUTINE. 


Underscored positions indicate position of word marks set by leader cards 1, 2 and 3. 

Card columns 5-7 and 12-18 are key punched from the IBM 1401 Program Chart 
(Figure 23-G). 

After loading the patch subroutine the clear and branch card clears read -in area 1-80 
and branches to location C14 (3314). This is the address of the first instruction in 
the permanent FARGO program. 


Figure 23-H. Patch Subroutine Card Format 
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Date 
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TOTAL PAID 
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o 
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o 
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o 
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o 

o 
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GENERAL 

MANUFACTURING COMPANY 
Endicott, N.Y. 

| 

GENERAL BANK 
AND TRUST CO. 
ENDICOTT, N. Y. 



145 2 
320 

PAY TO THE 

Date 

| Vendor | Check No.) j 

Amount ) 

ORDER OF 

12/15/61) 815) 19876 | | 

V-O-I-D | 



GENERAL MANUFACTURING COMPANY j 




Treasurer j 


o 

o 

o 

o 

o 
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General Manufacturing Company — Endicott, N. Y. 


We enclose 
check in full 
payment of 
items listed 


CODES: 

1. Invoices 

2. Claims 

3. Discounts 

4. Allowances 


Invoice 

Our Ref. 
Number 

Invoice or 
Claim Amount 

Discount or 
Allowance 

TJ 

O 
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AMOUNT 

Mo. 

Day 
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4285 

9,030.86 
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9,030.86 

12 

11 

5117 
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12 

12 

5328 


150.86 
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150.86- 

12 

13 

5416 

123.45 
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123.45 

12 

13 

5417 

876.55 
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876.55 


DETACH CHECK 
BEFORE DEPOSITING 


12/15/61 

815 

Date 

Vendor 


TOTAL PAID 


$51,350.00 


O 

O 

o 

o 

o 
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o 
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o 
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o 

o 
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Figure 23-J. Remittance Statement and Voucher Check 
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General Manufacturing Company — Endicott, N. V. 
We enclose Invoice Our Ref. Invoice or Discount or .Sj 
check in full Mo. Day Number Claim Amount Allowance q 
payment of 

items listed 11 06 3219 347.09 1 


CODES: 

1. Invoices 
,2. Claims 

3. Discounts 

4. Allowances 


347.09 


DETACH CHECK 
BEFORE DEPOSITING 


12/15/61 

1875 

Date 

Vendor 


$347.09 


GENERAL MANUFACTURING COMPANY 
Endicott, N.Y. 


GENERAL BANK 
AND TRUST CO. 
ENDICOTT, N.Y. 

PAY TO THE 
ORDER OF 


SUTCAN, INC. 

2710 HELEN ST. 
ENDICOTT, NEW YORK 


Date 
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19878 


Amount 
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$712.81 
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Endicott, N.Y. 
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AND TRUST CO. 
ENDICOTT, N.Y. 
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Date Vendor Check No. 

12/15/61 21264 19879 


Amount 

$712-81 
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General Manufacturing Company — Endicott, N. Y. 
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Mo« 1 Hay 
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u 



Figure 23- J. (2) 
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Figure 24. Example of FARGO Patching and Linkage Using SPS. 
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NOTES: Entry 040 — ORG 1445 specifies the location of N000 (detail No-Op) in the FARGO generated program. 

Entry 050 B DPATCH will be converted during assembly to an actual machine language instruction (in this case BM00) and loaded over N000 in 1445-1448. 

Entry 060 — ORG 1201 specifies the location of £1888888 (total No-Op) in the FARGO generated program. 

Entry 070 — B TPATCH will be converted during assembly to an actual machine language instruction and loaded over N888 followed by three blanks (entry 080). 

Entry 090 — In this example, the patch area begins in location 2400 converted to MOO during assembly. The last instruction in each subroutine must branch 
back to the proper point (B1449 and _B1208) in the FARGO generated program. 

Entry 200 -- The END card must branch back to 3314 to the first card read instruction of FARGO. 



















Figure 25. Example Method of Identifying Types of Cards when a Digit Is Punched in One Column and an X (11 Punch) 
in Another. 
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